home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / t / qt.gc.bak.1 < prev    next >
Text File  |  2000-01-01  |  1KB  |  79 lines
  1. G4C
  2. Varpath "qt.gc/prefs.gc"
  3. WinBig -1 -1 403  150 "Amiga Plus Prefs (C) by Markus Castro"
  4. WinType 11010000
  5. WinFont Times.font 15 000
  6. ;Screen Prefs
  7. xOnload
  8. mov  = 1
  9.  
  10. XOnclose
  11. guiclose qt.gc 
  12.  
  13.  
  14. xonactive
  15. changeimage qt.gc 4 -1 -1 qt2
  16. playsound 0
  17. xoninactive
  18. changeimage qt.gc 4 -1 -1 qt1
  19.  
  20.  
  21. Image 10 10 qt21
  22. gadid 1
  23. Image 50 50 qt12
  24. gadid 2
  25. Image 20 95 qt13
  26. gadid 3
  27.  
  28.  
  29. Image 300 25 qt2
  30. gadid 4
  31.  
  32. Text 154 3 300 18 'Bitte QT Abspieler wählen:' 27 NOBOX
  33.  
  34. xRADIO 154 25 18 18 mov 5 
  35. GadTitle right
  36.  RSTR  QT 1
  37.  RSTR  CyberQT 2
  38.  RSTR  MooviD 3
  39.  RSTR  "" 4
  40. playsound plop
  41. changeimage qt.gc 1 -1 -1 qt11
  42. changeimage qt.gc 2 -1 -1 qt12
  43. changeimage qt.gc 3 -1 -1 qt13
  44. if $mov < 4 
  45. changeimage qt.gc $mov -1 -1 qt2$mov
  46. endif
  47.  
  48.  
  49. xTEXTIN  175 79 200 18 "" eigener5 "" 255 
  50. gadid 5
  51. xButton 380 79 20 18 "_F" 
  52. CLI 'Requestfile TITLE "Bitte Abspieler wählen:" DRAWER APCD:a+tools/qt >env:APCDFiles5'
  53. dummys = $..apcdfiles5
  54. cutvar dummys cut char -1 dummy
  55. cutvar dummys cut char 1 dummy
  56. eigener5 = $dummys
  57. update qt.gc 5 $eigener5
  58.  
  59. xbutton -1 127 50 20 "O.k."
  60. DOCASE $mov
  61. Case = 1
  62. qt = "apcd:a+tools/qt/qt"
  63. qt2 = "QT"
  64. BREAK
  65. Case = 2
  66. qt = "apcd:a+tools/qt/cyberqt"
  67. qt2 = "CyberQT"
  68. BREAK
  69. Case = 3
  70. qt = "apcd:a+tools/qt/moovid"
  71. qt2 = "Moovid"
  72. BREAK
  73. Case = 4
  74. qt = $eigener4
  75. qt2 = $eigener4
  76. BREAK
  77. Endcase
  78. update prefs.gc 6 $qt2
  79. Guiclose qt.gc